library(papaja)
test1 <- paste0()
test2 <- paste0("position:absolute; top: 50px; right: 30px; width: 20%; height: auto; zindex: 2; border: solid 3px #CCC")
paste0('<img src="Images/ACCORDIAN.gif" style="position: absolute; top: 100px; right: 150px; width: 20%; height: auto; zindex: 1; border: solid 3px #CCC"/>
')
## [1] "<img src=\"Images/ACCORDIAN.gif\" style=\"position: absolute; top: 100px; right: 150px; width: 20%; height: auto; zindex: 1; border: solid 3px #CCC\"/>\n"
#test3 <- paste0('<img src="Images/ACCORDIAN.gif" style=', test1, '/>')
#test4 <- paste0('<img src="Images/ACCORDIAN.gif" style=', test2, '/>')
#
#fileConn<-file("D:/Research_Projects/workshops_envision_bootcamp/R/GestureNetworks_module1/Scripts/output.html")
#writeLines(c(test3, test4), fileConn)
#close(fileConn)

